home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q7.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  34 lines

  1. 10  HOME : TEXT 
  2. 20  PRINT 
  3. 30  PRINT "What do you think was the original      reflector?"
  4. 40  PRINT : PRINT 
  5. 50  PRINT "a. Sheets of bronze"
  6. 60  PRINT 
  7. 70  PRINT "b. Pool of water"
  8. 80  PRINT 
  9. 90  PRINT "c. Reflective sunglasses"
  10. 100  PRINT 
  11. 110  PRINT "d. I don't know."
  12. 120  PRINT : PRINT : PRINT : PRINT 
  13. 130  GET KY$
  14. 140  HOME 
  15. 150  PRINT : PRINT 
  16. 160  IF KY$ = "b"  OR KY$ = "B"  THEN  GOTO 300
  17. 170  IF KY$ = "a"  OR KY$ = "A"  OR KY$ = "c"  OR KY$ = "C"  THEN  GOTO 320
  18. 180  IF KY$ = "d"  OR KY$ = "D"  THEN  GOTO 350
  19. 185  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"c"  OR KY$ < >"C"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOTO 370
  20. 190  PRINT : PRINT : PRINT : PRINT 
  21. 200  FOR I = 0 TO 1000
  22. 202 J = 1
  23. 204  NEXT I
  24. 210  GOTO 10
  25. 250  END 
  26. 300  PRINT "Good answer!!  On to the next question."
  27. 310  PRINT : PRINT : PRINT : PRINT 
  28. 312  PRINT  CHR$(4);"run q8"
  29. 320  PRINT "Nope, think back further in time."
  30. 330  GOTO 190
  31. 350  PRINT "Think a bit harder and try again."
  32. 360  GOTO 190
  33. 370  PRINT "Just enter <a>, <b>, <c>, or <d>."
  34. 380  GOTO 190